3 M=-1:POKE808,227
4 M=M+1:FORN=0TO39:POKE1024+M*40+N,32:NEXTN
5 M=M+1:FORN=39TO0STEP-1:POKE1024+M*40+N,32:NEXT:IFM<22THEN4
6 FORN=0TO39:POKE1984+N,32:NEXT:PRINTCHR$(142)
7 PRINT"[147]"SPC(11)"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] P A R E N T A L ";
8 PRINT"[142][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][146][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][180][176][174][176][201][199][200][178][176][192][213][201][176][201][205]";
9 PRINT"[206][167][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][180][171][179][221][221][200][199][221][183][208][221][221][171][179][167] [167][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][180][221][221][173][203][167][180][177][183][183][202][203][221][221]";
10 PRINT"[167] [167][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] EXPLICIT LY";
11 PRINT"RICS [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][146][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
13 A(0)=6:A(1)=4:A(2)=14:A(3)=1:A(4)=15:A(5)=12:A(6)=11:A(7)=0
14 FORM=0TO7:POKE53280,A(M):POKE53281,A(M):FORT=1TO100:NEXTT:NEXTM:FORT=0TO999:NEXTT
15 FORM=0TO24:POKE55963-M,0:POKE55924-M,0:POKE55885-M,0:POKE55846-M,0
16 POKE55807-M,0:POKE55768-M,0:POKE55729-M,0:POKE55690-M,0:POKE55651-M,0:NEXT
17 FORT=1TO300:NEXT
19 PRINT"[147][155]           [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"SPC(19)"[176][192][192][192][192][192][201][213][192][192][201][213][192][192][192][192][192][201][213][192][192][192][154][192][192][201][155]"
20 PRINT"       [221]  [221]  [221][221]  [221][221]  [221][160][160][221][221][160][160][221][160][154][160][221][155]"SPC(15)"[221]  [221]  [221][221]  [221][221]  [171][192][192][179][221]  [176][192][192][154][179][155]"
21 PRINT"       [150][221][155]  [221]  [221][221]  [221][221]  [221][160] [221][221]  [221]  [221]"SPC(15)"[221][150] [155] [221]  [221][221]  [221][221]  [221]  [221][221]  [221]  [221]"
22 PRINT"       [173][192][150][192][155][179]  [221][173][192][192][189][173][192][192][192][192][192][189][173][192][192][174]  [221]"SPC(18)"[173][192][192][189][146]"SPC(13)"[221][173][192][192][189]"
23 PRINT"           [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
24 [153]"POKETAB(TAB(PRINT#TAB(TAB(LISTTAB(TAB(TAB(LISTTAB(TAB(PRINT#TAB(TAB(POKETAB(TAB(STOP POKETAB(TAB(PRINT#TAB(TAB(LISTTAB(TAB(TAB(LISTTAB(TAB(PRINT#TAB(TAB(POKETAB(TAB(STOP POKETAB(TAB(PRINT#TAB(TAB(LISTTAB(TAB(TAB(LISTTAB(TAB(PRINT#TAB(TAB(POKETAB(";
25 [153]"       SYSWELCOME TO BASIC-DELIRIUM
26 PRINT"[155][164][164][152][164][164][151][164][164][144] [151][164][164][152][164][164][155][164][164][164][155][164][164][152][164][164][151][164][164][144] [151][164][164][152][164][164][155][164][164][164][155][164][164][152][164][164][151][164][164][144] [151][164][164][152][164][164][155][164]"
27 FORM=0TO3500:NEXT
28 PRINT"[145][145][145][145][145][145]               [176][153][192][192][192][192][192][192][192][192][174]               ";
29 FORM=1TO8:PRINT"               [221]        [221]               ";:NEXT
30 PRINT"               [173][192][192][192][192][192][192][192][192][189]              ":A$(0)=" "
31 A$(1)="[166] [157][157]  "
32 A$(2)="[166][166]  [157][157][157][157][166][166]  [157][157][157][157]    [157][157][157][157]    "
33 A$(3)="[191][191][191][191]    [157][157][157][157][157][157][157][157][191][191][191][191]    [157][157][157][157][157][157][157][157][191][191][191][191]    [157][157][157][157][157][157][157][157][191][191][191][191]    [157][157][157][157][157][157][157][157]"
34 A$(3)=A$(3)+"        [157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157]        "
35 A$(4)=" [146]  [146]  [146]  [146] [157][157][157][157][157][157][157][157]  [146]  [146]  [146]  [157][157][157][157][157][157][157][157] [146]  [146]  [146]  [146] "
36 A$(4)=A$(4)+"[157][157][157][157][157][157][157][157]  [146]  [146]  [146]  [157][157][157][157][157][157][157][157] [146]  [146]  [146]  [157][157][157][157][157][157] "
37 A$(4)=A$(4)+"[146]  [146]  [146]  [157][157][157][157][157][157][157][157] [146]  [146]  [146]  [157][157][157][157][157][157] [146]  [146]  [146]  "
39 FORM=1TO8:FORN=1TO4:PRINT""A$(N):FORT=1TO70
40 NEXTT:NEXTN:FORN=3TO0STEP-1:PRINT""A$(N)
41 FORT=1TO70:NEXTT:NEXTN:NEXTM:GOTO44
42 PRINT""SPC(15)"[172][162][162][162][162][162][162][162][162][187]":PRINT"[145]"SPC(15):FORM=1TO8
43 PRINT"[161]        [146][161]"SPC(30);:NEXT:PRINT"[188][162][162][162][162][162][162][162][162][146][190]":FORT=1TO100:NEXT:RETURN
44 PRINT"[158]":GOSUB42:PRINT"[155]":GOSUB42:PRINT"[152]":GOSUB42:PRINT"[151]":GOSUB42:PRINT"[144]"
45 GOSUB42:PRINT"[151]":GOSUB46:PRINT"[152]":GOSUB46:PRINT"[155]":GOSUB46:PRINT"[158]":GOTO48
46 PRINT""SPC(16)"     [157][157][157][157]     [157][157][157][157][157][157]       [157][157][157][157][157][157][157]       ";
47 PRINT"[157][157][157][157][157][157][157]       [157][157][157][157][157][157]     [157][157][157][157]   ":FORT=1TO200:NEXT:RETURN
48 GOSUB46:POKE55874,14:POKE55876,14:POKE55954,0:POKE55955,0:POKE55956,0:GOTO58
49 POKE55296,PEEK(55875):POKE55875,PEEK(55876):POKE55876,PEEK(55916)
50 POKE55916,PEEK(55956):POKE55956,PEEK(55955):POKE55955,PEEK(55954)
51 POKE55954,PEEK(55914):POKE55914,PEEK(55874):POKE55874,PEEK(55296):RETURN
53 POKE55297,PEEK(55835):POKE55835,PEEK(55836):POKE55836,PEEK(55877)
54 POKE55877,PEEK(55917):POKE55917,PEEK(55957):POKE55957,PEEK(55996)
55 POKE55996,PEEK(55995):POKE55995,PEEK(55994):POKE55994,PEEK(55953)
56 POKE55953,PEEK(55913):POKE55913,PEEK(55873):POKE55873,PEEK(55834)
57 POKE55834,PEEK(55835):POKE55834,PEEK(55297):RETURN
58 FORM=1TO8:GOSUB53:GOSUB49:GOSUB53:GOSUB49:GOSUB53:NEXTM
59 PRINT"[152]        THIS  [176][178][178][192][178][192][178][174][176][201][213][178][192][192][178][192][201]"
60 PRINT"[145]        IS    [221][176][179][221][221][221][221][221][221][173][219][179][221][221][221][221][221]":PRINT"        REALLY[221][221][221][176][179] [221][221][221][176][179][221][221][221][221][176][179]"
61 PRINT"        [213][201][213][201][213][201][221][221][221][221][221][221][221][171][179][171][179][221][221][221][221][221][221]":PRINT"        [202][203][202][203][202][203][173][203][202][192][177][177][177][192][177][192][177][177][177][177][177][192][203]"
62 FORT=1TO400:NEXTT:POKE55915,2:POKE55874,0:POKE55834,0:POKE55836,0
63 POKE55876,0:POKE55953,1:POKE55994,1:POKE55995,1:POKE55996,1:POKE55957,1
64 POKE55954,7:POKE55955,7:POKE55956,7:FORT=1TO2000:NEXTT:FORM=1TO8:GOSUB53
65 GOSUB49:GOSUB53:GOSUB49:GOSUB53:NEXT:FORT=1TO2000:NEXTT
67 FORM=0TO8:FORN=OTO22:POKE1784+(N*9)+M,32:NEXTN:NEXTM:FORT=1TO1000:NEXTT:GOTO69
68 FORZ=1TO100:NEXTZ:RETURN
69 POKE55795,0:GOSUB68:POKE55794,0:GOSUB68:POKE55833,0:GOSUB68:POKE55872,0
70 GOSUB68:POKE55912,0:GOSUB68:POKE55952,0:GOSUB68:POKE55993,0:GOSUB68
71 POKE56034,0:GOSUB68:POKE56035,0:GOSUB68:POKE56036,0:GOSUB68:POKE55997,0
72 GOSUB68:POKE55958,0:GOSUB68:POKE55918,0:GOSUB68:POKE55878,0:GOSUB68
73 POKE55837,0:GOSUB68:POKE55796,0:GOSUB68:GOSUB68
74 FORM=1TO4:POKE55835,0:GOSUB53:POKE55875,0:GOSUB49
75 POKE55835,0:GOSUB53:POKE55875,0:GOSUB49:POKE55835,0:GOSUB53:NEXTM:FORT=1TO200
76 NEXTT:FORM=0TO28:POKE55331-M,0:POKE55370-M,0:POKE55409-M,0:POKE55448-M,0
77 POKE55487-M,0:POKE55528-M,0:POKE55569-M,0:POKE55610-M,0:POKE55651-M,0
78 FORT=1TO20:NEXTT:NEXTM:POKE55915,0:POKE55875,2:FORT=1TO300:NEXTT
79 POKE55835,2:POKE55875,0:FORT=1TO300:NEXTT:POKE55795,2:POKE55835,0:FORT=1TO800
80 NEXTT:PRINT""SPC(18)"   [157][157][157]   [157][157][157]   ":FORT=0TO300:NEXT
81 PRINT"[147]":FORM=1TO7:PRINTSPC(16)"       ":NEXT:FORT=0TO300:NEXT
82 PRINT"":FORM=1TO11:PRINTSPC(14)"           ":NEXT:FORT=0TO300:NEXT
83 PRINT"":FORM=1TO15:PRINTSPC(12)"               ":NEXT:FORT=0TO300:NEXT
84 PRINT"":FORM=1TO19:PRINTSPC(10)"                   ":NEXT:FORT=0TO300:NEXT
85 POKE53281,2:FORT=0TO300:NEXT:POKE53280,2:PRINT"[147]";:FORM=1TO2
86 PRINT"          [146]      [146]    [146]           [146]      [146]   ";:NEXT:FORM=1TO3
87 PRINT"      [146]    [146]      [146]    [146]       [146]    [146]      [146]   ";:NEXT
88 PRINT"          [146]      [146]    [146]           [146]     [146][169]  [169]";
89 PRINT"[146]        R [146]      [146]    [146]    HTQUAR [146]       [169] ";
90 PRINT"[146]          [146]      [146]    [146]           [146]       [223] ";
91 PRINT"[146]          [146]      [146]    [146]           [146]     [223][146]  [223]";:FORM=0TO7
92 PRINT"[146]          [146]      [146]    [146]           [146]      [146]   ";:NEXT:FORM=0TO5
93 PRINT"[146]          [146]      [146]    [146]       [146]    [146]      [146]   ";:NEXT
94 PRINT"[146]          [146]          [146]           [146]      [146]   ";:POKE53281,0
95 PRINT"[146]          [146]          [146]           [146]      [146]";:FORT=1TO2000:NEXT
96 FORM=1TO500:POKE53281,0::::::::::::::POKE53281,1:NEXTM:FORM=1TO500
97 POKE53281,0::::::::::::::POKE53281,2:NEXTM:PRINT"[147][155]":FORT=1TO1000:NEXTT
98 A(0)=2:A(1)=10:A(2)=15:A(3)=1:A(4)=12:A(5)=11:A(6)=0
99 FORM=0TO6:POKE53280,A(M):POKE53281,A(M):FORT=1TO100:NEXTT:NEXTM:FORT=0TO999:NEXT
100 PRINT"[147]":A$="           [194]ASIC-[196][197][204][201][210][201][213][205]":FORM=1TO26:PRINT" "MID$(A$,27-M,1)
101 FORS=200TO207:POKE53270,S:FORT=0TO27:NEXTT:NEXTS
102 POKE53270,200:PRINT" [148]":NEXTM:FORT=1TO300:NEXT:PRINT""SPC(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
103 PRINT"[152]"CHR$(34):PRINT"[158][201]CH INTERESSIERE MICH MEHR FUER"
104 PRINT"     [208]ERVERSE ALS FUER [200]EILIGE. [201]CH
105 [153]"     KANN RELAXEN IN CHR$ESELLSCHAFT VON
106 PRINT"     [208]ENNERN, DENN ICH BIN SELBER
107 [153]"     EINER. RIGHT$CH HABE NICHTS UEBRIG
108 PRINT"     FUER [199]ESETZE, [205]ORAL, [210]ELIGION,
109 [153]"     (null)ORSCHRIFTEN. RIGHT$CH MAG MICH NICHT
110 PRINT"     VON DER [199]ESELLSCHAFT TRIMMEN
111 [153]"     LASSEN.PRINT#"[199](34)
112 [153]""[166]16)"LIST(LEN.PEEKUKOWSKI, AUS "[199](34)"(null)UMM"[199](34)")"
114 [153]"    STOP       POKEWAIT^STOP       POKEWAIT^STOP       POKEWAIT^STOP       POKEWAIT^"
115 [153]"    STOP   POKEWAITORSTOP   POKEWAIT(null)STOP   POKEWAITORSTOP   POKEWAIT(null)STOP   POKEWAITORSTOP   POKEWAIT(null)/TANSTOP   POKEWAITORTANEXP"
116 [153]"    STOP   POKEWAIT(null)/TANTANEXPSTOP   POKEWAIT(null)STOP   POKEWAIT(null)STOP       POKEWAIT(null)  STOP   POKEWAIT(null)"
117 [153]"    STOP   POKEWAIT(null)STOP   POKEWAIT^STOP   POKEWAIT(null)STOP   POKEWAIT(null)STOP   POKEWAITORSTOP   POKEWAIT(null)  STOP   POKEWAIT(null)"
118 [153]"    STOP   POKEWAIT(null)STOP   POKEWAIT(null)STOP   POKEWAIT(null)STOP   POKEWAIT(null)STOP   POKEWAIT(null)STOP   POKEWAIT(null)  STOP   POKEWAIT(null)"
119 [153]"    STOP       POKEWAIT(null)STOP       POKEWAIT(null)STOP   POKEWAIT(null)STOP   POKEWAIT(null)  STOP   POKEWAIT(null)"
120 [153]"    /TANTANTANSTOP   POKEWAIT(null)/TANTANTANTANTANTANEXP/TANTANEXP/TANTANEXP  /TANTANEXP"[166]14)"STOP   POKEWAIT(null)"[166]36)"/TANTANEXP
121 FORM=1TO104:READD:DATA 11,,,,,,,,,,,11,11,12,15,1,15,12,11,11,,,,,,,,,,,,
122 DATA2,2,7,7,2,2,7,7,2,2,7,7,2,2,7,7,2,2,7,7,,,,,,,,,,,,2,2,10,7,5
123 DATA13,14,6,4,4,,,,,,,,,,,11,,,,,,,,,,,,,,,,,,,,
148 A=PEEK(56104):POKE56186,A:POKE56185,A:POKE56184,A:POKE56144,A:POKE56102,A
149 POKE56101,A:POKE56100,A
150 A=PEEK(56106):POKE56146,A:POKE56145,A:POKE56104,A:POKE56103,A:POKE56062,A
151 POKE56061,A:POKE56060,A:POKE56021,A:POKE56020,A
152 A=PEEK(56108):POKE56106,A:POKE56105,A:POKE56065,A:POKE56064,A:POKE56022,A
153 POKE55982,A:POKE55981,A:POKE55980,A:POKE55941,A:POKE55940,A
154 A=PEEK(56110):POKE56108,A:POKE56066,A:POKE56026,A:POKE56025,A:POKE56024,A
155 POKE55942,A:POKE55901,A:POKE55900,A
156 A=PEEK(56111):POKE56110,A:POKE56109,A:POKE56069,A:POKE56068,A:POKE56028,A
157 POKE55946,A:POKE55945,A:POKE55944,A:POKE55905,A:POKE55904,A:POKE55903,A:POKE55902,A
158 A=PEEK(56112):POKE56111,A:POKE56070,A:POKE56029,A:POKE55989,A:POKE55988,A
159 POKE55948,A:POKE55906,A
160 A=PEEK(56113):POKE56112,A:POKE56030,A:POKE55990,A:POKE55949,A:POKE55909,A
161 POKE55908,A
162 A=PEEK(56114):POKE56113,A:POKE56072,A:POKE56032,A:POKE55992,A:POKE55950,A
163 POKE55910,A:POKE55911,A
164 A=PEEK(56034):POKE55912,A:POKE55952,A:POKE55953,A:POKE55993,A:POKE56033,A
165 POKE56073,A:POKE56074,A:POKE56114,A
166 A=PEEK(56036):POKE55913,A:POKE55914,A:POKE55954,A:POKE55994,A:POKE56034,A
167 A=PEEK(56116):POKE56036,A:POKE55996,A:POKE55956,A:POKE55916,A:POKE55917,A
168 A=PEEK(56117):POKE56116,A:POKE56076,A:POKE56077,A:POKE56037,A:POKE55997,A
169 POKE55957,A:POKE55958,A:POKE55918,A
170 A=PEEK(56118):POKE56117,A:POKE56078,A:POKE56038,A:POKE55998,A:POKE55999,A
171 POKE55919,A:POKE55920,A:POKE55960,A
172 A=PEEK(56080):POKE56118,A:POKE56040,A:POKE56000,A:POKE55961,A:POKE55921,A
173 POKE55922,A:A=PEEK(56120):POKE56080,A:POKE56041,A
174 POKE56001,A:POKE56002,A:POKE55962,A:POKE55924,A
175 A=PEEK(56122):POKE56120,A:POKE56121,A:POKE56081,A:POKE56082,A:POKE55966,A
176 POKE55967,A:POKE55926,A:POKE55927,A:POKE55928,A:POKE55925,A:POKE56042,A
177 A=PEEK(56086):POKE56122,A:POKE56046,A:POKE56006,A:POKE56007,A:POKE55968,A
178 POKE55929,A:POKE55930,A:A=PEEK(56126):POKE56086,A:POKE56087,A:POKE56047,A
179 POKE56048,A:POKE56008,A:A=PEEK(56128):POKE56126,A:POKE56127,A:POKE56088,A
180 POKE56128,D:NEXTM:M=2
181 POKE53265,0:FORT=0TOM:NEXTT:POKE53265,27:FORT=0TO(200-M):NEXTT
182 M=M+10:IFM<300THEN181
184 POKE53265,0:PRINT"[147]":FORT=0TO999:NEXT
185 PRINTSPC(11)"[151][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
186 FORM=1TO2:PRINTSPC(11)"[161][144]                [146][151][161]":NEXT
187 PRINTSPC(11)"[161][144]     [144]        [144]   [146][151][161]
188 [153][166]11)"GETSTOP      STOP       STOP   WAITPOKEGET
189 PRINTSPC(11)"[161][144]       [144]      [144]   [146][151][161]
190 [153][166]11)"GETSTOP     STOP   STOP     STOP   WAITPOKEGET
191 PRINTSPC(11)"[161][144]     [144]    [144]    [144]   [146][151][161]
192 [153][166]11)"GETSTOP     STOP     STOP   STOP   WAITPOKEGET
193 PRINTSPC(11)"[161][144]     [144]        [144]   [146][151][161]
194 [153][166]11)"GETSTOP     STOP        STOP   WAITPOKEGET
195 FORM=1TO4:PRINTSPC(11)"[161][144]     [144]        [144]   [146][151][161]":NEXT
196 FORM=1TO2:PRINTSPC(11)"[161][144]                [146][151][161]":NEXT
197 PRINTSPC(11)"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
198 POKE53265,27:FORT=0TOM:NEXTT:POKE53265,0:FORT=0TO(200-M):NEXTT
199 M=M+10:IFM<300THEN198
200 POKE53265,27:FORT=0TO999:NEXTT:FORX=0TO7:FORY=0TO7
201 GOSUB204:POKE1196+Y*40+X,160:GOSUB206:POKE1811-Y*40-X,160
202 GOSUB208:POKE1211+X*40-Y,160:GOSUB210:POKE1796-X*40+Y,160:NEXTY:NEXTX
203 FORT=0TO999:NEXTT:GOTO212
204 IFPEEK(1196+Y*40+X)=160THENPO=(55468+Y*40+X):POKEPO,PEEK(PO)+1
205 RETURN
206 IFPEEK(1811-Y*40-X)=160THENPO=(56083-Y*40-X):POKEPO,PEEK(PO)+1
207 RETURN
208 IFPEEK(1211+X*40-Y)=160THENPO=(55483+X*40-Y):POKEPO,PEEK(PO)+1
209 RETURN
210 IFPEEK(1796-X*40+Y)=160THENPO=(56068-X*40+Y):POKEPO,PEEK(PO)+1
211 RETURN
212 FORX=0TO9:FORY=0TO9:GOSUB215:POKE1196+Y*40+X,160:GOSUB217:POKE1811-Y*40-X,160
213 GOSUB219:POKE1211+X*40-Y,160:GOSUB221:POKE1796-X*40+Y,160:NEXTY:NEXTX
214 FORT=0TO1500:NEXTT:GOTO223
215 IFPEEK(1196+Y*40+X)=160THENPO=(55468+Y*40+X):POKEPO,PEEK(PO)+2
216 RETURN
217 IFPEEK(1811-Y*40-X)=160THENPO=(56083-Y*40-X):POKEPO,PEEK(PO)+3
218 RETURN
219 IFPEEK(1211+X*40-Y)=160THENPO=(55483+X*40-Y):POKEPO,PEEK(PO)+1
220 RETURN
221 IFPEEK(1796-X*40+Y)=160THENPO=(56068-X*40+Y):POKEPO,PEEK(PO)+4
222 RETURN
223 FORX=0TO7:FORY=0TO7:GOSUB229:POKE1196+Y*40+X,160:GOSUB231
224 POKE1811-Y*40-X,160:GOSUB233:POKE1211+X*40-Y,160:GOSUB235
226 POKE1796-X*40+Y,160:NEXTY:NEXTX
228 GOTO237
229 IFPEEK(1196+Y*40+X)=160THENPO=(55468+Y*40+X):POKEPO,0
230 RETURN
231 IFPEEK(1811-Y*40-X)=160THENPO=(56083-Y*40-X):POKEPO,0
232 RETURN
233 IFPEEK(1211+X*40-Y)=160THENPO=(55483+X*40-Y):POKEPO,0
234 RETURN
235 IFPEEK(1796-X*40+Y)=160THENPO=(56068-X*40+Y):POKEPO,0
236 RETURN
237 FORM=1TO4:PRINT"";:FORN=1TOM:PRINT"";:NEXTN
238 PRINTSPC(11)"                  ":PRINTSPC(11)"[151][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
239 PRINTSPC(11)"[161][146]                [161]"
240 PRINTSPC(11)"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
241 FORZ=1TO200:NEXTZ:NEXTM
242 FORM=1TO12:PRINT"":FORZ=1TO60:NEXTZ:NEXTM:PRINT"[151][147]":FORT=0TO300:NEXTT
243 A(0)=11:A(1)=12:A(2)=15:A(3)=1:A(4)=15:A(5)=12:YY=25:XX=37:YQ=-1
244 FORM=0TO5:POKE53280,A(M):POKE53281,A(M):FORT=1TO110:NEXTT:NEXTM:FORT=1TO80
245 NEXTT:POKE53280,11:XR=1:YR=1:X=3:Y=-1:Z=0:XQ=-1:FORT=1TO300:NEXTT
246 Z=Z+1:X=X+XR:Y=Y+YR:XX=XX+XQ:YY=YY+YQ:IFX=39THENXR=-1
247 IFX=0THENXR=1
248 IFY=24THENYR=-1
249 IFY=0THENYR=1
250 IFXX=39THENXQ=-1
251 IFXX=0THENXQ=1
252 IFYY=24THENYQ=-1
253 IFYY=0THENYQ=1
254 POKE1024+Y*40+X,160:POKE1024+YY*40+XX,160
255 IFZ<193THEN246
256 POKE53280,12:FORT=1TO80:NEXTT
257 FORM=5TO0STEP-1:POKE53280,A(M):POKE53281,A(M):FORT=1TO110:NEXTT:NEXTM
258 PRINT"[155][147]":FORT=1TO110:NEXTT:POKE53280,0:POKE53281,0:A$="[130]ASIC[160][132]ELIRIUM"
259 FORM=1TO14:FORN=24TO0STEP-1
260 POKE1024+N*40+M-1,ASC(MID$(A$,M,1))-64
261 IFN<24THENPOKE1024+(N+1)*40+M-1,32
262 NEXT:NEXT
263 F$(2)="[151]":F$(5)="[152]":F$(3)="[155]":F$(4)="":F$(1)="[144]":A$(2)="   [157][157][157]   [157][157][157]   "
264 A$(1)="  [157][157]  ":A$(4)="     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     "
265 A$(3)="    [157][157][157][157]    [157][157][157][157]    [157][157][157][157]    "
266 W=W+1:A=RND(0)*5:X=RND(0)*36:Y=RND(0)*19:F=F+1:IFF=6THENF=1
267 PRINT"[194]ASIC [196]ELIRIUM"LEFT$("",Y+1)SPC(X)F$(F)A$(A)
268 IFW<300THEN266
269 PRINT"[155][194]ASIC [196]ELIRIUM":FORT=0TO300:NEXTT:FORM=1TO23STEP2:POKE781,M
270 SYS59903:FORT=1TO150:NEXTT:NEXTM:FORM=24TO0STEP-2:POKE781,M:SYS59903
271 FORT=1TO150:NEXTT:NEXTM:FORT=1TO400:NEXT:POKE53272,30
272 PRINT"[147][144]:;<=>     [146]     [146]    [223][146]         [146]  [146]   [146] :;<=>";
273 PRINT"[215][216][217][218][219]  [146]   [146]  [146]  8[146]  [146]   [146]   [146]   [146]  9[146] [223][223]3[146][169] [215][216][217][218][219]";
274 PRINT"[180] [182][183][184]     [146]  [146]       6[146]    [146]   [146]    56[146]  [180] [182][183][184]";
275 PRINT"QRSTU[146]  [146]   [146]  [146]  3[146]  [146]   [146]  8[146]   [146]  3[146] 3[146][169][223][223][146] QRSTU";
276 PRINT"./012[146] 7[146]  7[146] 7[146]  7[146] 7[146]  7[146]     7[146]  7[146] 7[146]  7[146] ./012";
277 PRINT"[203][204][205][206][207][146]  [146]   [146]  [146]   [146]  [146]   [146]      [146]   [146]  [146]   [146] [203][204][205][206][207]";
278 PRINT"[168][169][170][171][172][146] 9[146]  8[146] [223]   [146] 8[146]  9[146]     [223]   [146] 9[146]  8[146] [168][169][170][171][172][146][176][192][192][192][192][192][192][192][201][213]";
279 PRINT"[192][192][192][192][192][192][201][176][192][192][192][192][192][192][201][192][192][192][178][192][192][192] [204][175][175][175][175][175][186][171][192][192][192][192][192][192][192][203][171][192][192][192][192][192][192][179][171][192][192][192][192][192][192][179]   [221]    [175][175][175][175][175][175][186]"
280 FORT=0TO400:NEXTT:FORM=0TO34:READW:POKE55296+W,1:POKE55575-W,1:NEXT
281 FORT=0TO39:POKE55576+T,15:POKE55616+T,15:NEXT
282 FORT=0TO28:FORM=0TO4STEP2:POKE55302+M*40+T,1:POKE55341+M*40+T,1:NEXTM
283 POKE55541+T,1:NEXT
284 DATA0,1,2,3,4,44,84,124,164,204,244,243,242,241,240,200,160,120,80
285 DATA40,41,42,43,83,123,163,203,202,201,161,121,81,82,122,162
286 LOAD"PART2",8